Private Sub DARDate_Exit(Cancel As Integer)
'Do not accept any date before 01/01/1995.
If Me.DARDate < #1/1/1995# Then
    MsgBox "Date must be later than 12/31/1994.", vbCritical, _
        "Enter a valid date."
   
    Cancel = True
End If

End Sub
